home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / comp / firstarg.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  510 b   |  21 lines
  1. /*
  2.                             F I R S T A R G . C
  3. */
  4.  
  5. #include "iccomp.h"
  6.  
  7. static ESTRUC_
  8.     arr;
  9.  
  10. ESTRUC_ *firstarg(e)
  11.     ESTRUC_
  12.         *e;
  13. {
  14.     etoc(e);                                /* argument is code now */
  15.                                             /* code points to ESTRUC_ */
  16.     arr.code = xrealloc(NULL, sizeof(ESTRUC_));
  17.  
  18.     *(ESTRUC_ *)arr.code = *e;              /* arr->code contains e */
  19.     arr.type = 1;                           /* type field: # of active e's */
  20.     return (&arr);
  21. }